;; Test the new association list procedures
(display "Testing assq procedure:")
(newline)
(display (assq 'a '((a . 1) (b . 2) (c . 3)))) ; Should output (a . 1)
(newline)
(display (assq 'b '((a . 1) (b . 2) (c . 3)))) ; Should output (b . 2)
(newline)
(display (assq 'd '((a . 1) (b . 2) (c . 3)))) ; Should output #f
(newline)

(display "Testing assv procedure:")
(newline)
(display (assv 1 '((1 . a) (2 . b) (3 . c)))) ; Should output (1 . a)
(newline)
(display (assv 2 '((1 . a) (2 . b) (3 . c)))) ; Should output (2 . b)
(newline)
(display (assv 4 '((1 . a) (2 . b) (3 . c)))) ; Should output #f
(newline)

(display "Testing assoc procedure:")
(newline)
(display (assoc 1 '((1 . a) (2 . b) (3 . c)))) ; Should output (1 . a)
(newline)
(display (assoc 2 '((1 . a) (2 . b) (3 . c)))) ; Should output (2 . b)
(newline)
(display (assoc 4 '((1 . a) (2 . b) (3 . c)))) ; Should output #f
(newline)

(exit)